home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / trading / stkdc.sbp < prev    next >
Text File  |  1995-07-10  |  3KB  |  142 lines
  1. SBP
  2.  ÿ½    STKDC
  3.  ÿ½    Enter Daily Exchange Rates/Stock Prices/Certificate Numbers
  4.  ÿ½    Last updated Jan 03, 90
  5.  
  6.  ÿ³ÿ_ÿwferror
  7.  
  8. stkdc:ÿ½ Assign function parameters 
  9.     ÿ½ k% is 1 for string and 2 for numeric key
  10.  cur%ÿ1:sto%ÿ2:nos%ÿ3:k%ÿ1:frow%ÿ10
  11.  ÿÉÿæmb%
  12.  ÿæcur%
  13. f$ÿ"Currency":fkey$ÿ"Currency":fmd$ÿ"stkdc":frow%ÿ12
  14.  ÿæsto%
  15. f$ÿ"stocks":fkey$ÿ"Stock_Key":fmd$ÿ"stkds"
  16.  ÿænos%
  17. f$ÿ"trans":fkey$ÿ"Transaction ref":fmd$ÿ"stkdn":k%ÿ2
  18.  ÿ’ÿÉ
  19.  ÿ´ÿ™f$
  20.  ÿ£fkey$
  21.  ÿ¡mb%ÿnos%ÿpÿÉÿÐTrans_Type ÿ"b"ÿ Cert_Sent_yn ÿ"n"
  22.  ÿ´ÿœfmd$
  23.  
  24. floop:ÿ½ Display from first record
  25.  ÿvslimits
  26.  ÿ¡k%ÿ1ÿpckey$ÿfstk$ÿ^ckey%ÿfstk%
  27.  ÿvspage
  28.  
  29. fwait:ÿ½ Auf Drucktaste warten
  30.  mp%ÿ0
  31.  ÿÊÿËss13$
  32.  ÿÏÿß
  33.  
  34. ÿ½ Zeile editieren
  35.  ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
  36.  ÿÊÿËss4$
  37.  ÿÉÿœÿ"mp%
  38.  ÿßÿ³
  39.  ÿÉÿæmb%
  40.  ÿæcur%
  41. ÿ”USD Xrate ÿ"mp%
  42.  ÿæsto%
  43. ÿ”Price Asked ÿ"mp%ÿqPrice Bid ÿ"mp%
  44.  ÿænos%
  45. ÿ”Certificate_No ÿ"mp%
  46.  ÿ’ÿÉ
  47.  ÿÂms1$,"",127,a%
  48.  ÿ¡a%ÿp
  49. ÿÉÿæmb%
  50. ÿæcur%
  51. Date of Xrate.CURRENCYÿÿQ
  52. ÿæsto%
  53. Price Date.STOCKSÿÿQ:Price Time.STOCKSÿÿR
  54. ÿ’ÿÉ
  55. ÿÌ
  56.  ÿ^
  57. ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(mp%)ÿ^ÿÉÿ¥pstk%(mp%)
  58. ÿÍÿœÿ"mp%
  59. ÿœ
  60.  ÿ’ÿ¡
  61.  ÿßÿe
  62.  ÿwfwait
  63.  
  64. fnext:ÿ½ Next page
  65.  ÿ¡(k%ÿ1ÿ lstk$ÿpstk$(lrec%))ÿpÿwfwait
  66.  ÿ¡(k%ÿ2ÿ lstk%ÿpstk%(lrec%))ÿpÿwfwait
  67.  ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(lrec%)ÿ^ÿÉÿ¥pstk%(lrec%)
  68.  ÿÉÿ±
  69.  ÿwfcurr
  70.  
  71. fprev:ÿ½ Prev page
  72.  ÿ¡(k%ÿ1ÿ fstk$ÿpstk$(1))ÿpÿwfwait
  73.  ÿ¡(k%ÿ2ÿ fstk%ÿpstk%(1))ÿpÿwfwait
  74.  ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(1)ÿ^ÿÉÿ¥pstk%(1)
  75.  ÿ›i%ÿ1ÿqfrow%
  76. ÿÉÿg
  77.  ÿ±i%
  78.  
  79. fcurr:ÿ½ Assign ckey
  80.  ÿ¡k%ÿ1ÿp
  81. ÿ–"ckey$ = "ÿfkey$
  82.  ÿ^
  83. ÿ–"ckey% = "ÿfkey$
  84.  ÿ’ÿ¡
  85.  ÿvspage
  86.  ÿœ
  87.  ÿwfwait
  88.  
  89. fexit:ÿ½ Exit
  90.  ÿÉÿÐ
  91.  ÿ„"menu"
  92.  
  93. slimits: ÿ½ Get first and last keys
  94.  ÿÉÿb
  95.  ÿ¡k%ÿ1ÿp
  96. ÿ–"lstk$ = "ÿfkey$
  97. ÿÉÿ`:ÿ–"fstk$ = "ÿfkey$
  98.  ÿ^
  99. ÿ–"lstk% = "ÿfkey$
  100. ÿÉÿ`:ÿ–"fstk% = "ÿfkey$
  101.  ÿ’ÿ¡
  102.  ÿÃ
  103.  
  104. spage:ÿ½ Displays page of records starting with ckey
  105. ÿ½ Returns key array and number of records for page
  106.  ÿÿœ
  107.  ÿ¡k%ÿ1ÿpÿÉÿ¥ckey$ÿ^ÿÉÿ¥ckey%
  108.  j%ÿ0
  109.  ÿ›i%ÿ1ÿqfrow%
  110. ÿÍÿœÿ"i%
  111. j%ÿj%ÿ1
  112. ÿ¡k%ÿ1ÿp
  113. ÿ–"pstk$(i%) = "ÿfkey$
  114. ÿ–"IF "ÿfkey$ÿ"=lstk$ then i% = frow%"
  115. ÿ^
  116. ÿ–"pstk%(i%) = "ÿfkey$
  117. ÿ–"IF "ÿfkey$ÿ"=lstk% then i% = frow%"
  118. ÿ’ÿ¡
  119. ÿ¡i%ÿ
  120. frow%ÿpÿÉÿ±
  121.  ÿ±i%
  122.  ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
  123.  ÿÃ
  124.  
  125. ferror: ÿ½ Error conditions
  126.  res%ÿ0
  127.  ÿ¡ÿ&ÿ11ÿp
  128. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  129.  ÿ^ÿ¡ÿ&ÿ57ÿp
  130. ÿÂms8$,"",100,a%:res%ÿ2
  131.  ÿ^
  132. ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
  133.  ÿ’ÿ¡
  134.  ÿ¡res%ÿ1ÿpÿy
  135.  ÿ¡res%ÿ2ÿpÿyfloop
  136.  ÿ¡res%ÿ3ÿpÿyfwait
  137.  ÿ
  138.  
  139.  
  140.  
  141.  
  142.